home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS031.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  22 lines
  1. 10  TEXT : HOME 
  2. 20  POKE 50,63: PRINT "                                        ";: POKE 50,255
  3. 25  PRINT "----------------------------------------";
  4. 30  HTAB (16): PRINT "APPLE-CAN"
  5. 35  PRINT "----------------------------------------";
  6. 40  POKE 50,63: PRINT "                                        ";: POKE 50,255
  7. 50  VTAB 23: POKE 50,63: PRINT "                                        ";: POKE 50,255
  8. 60  VTAB 8: PRINT "    THIS DISKETTE IS THE PROPERTY OF"
  9. 70  PRINT : HTAB (16): PRINT "APPLE-CAN"
  10. 80  PRINT : HTAB (9): PRINT "AND  IS TO BE COPIED BY"
  11. 85  PRINT 
  12. 90  PRINT : HTAB (10): POKE 50,127: PRINT "OFFICIAL";: HTAB (19): PRINT "MEMBERS";: HTAB (27): PRINT "ONLY": POKE 50,255
  13. 92  HTAB (10): PRINT "---------------------"
  14. 95  PRINT : PRINT 
  15. 100  PRINT : HTAB (6): PRINT "MEMBERSHIP CARD MUST BE SHOWN"
  16. 110  FOR X = 1 TO 2500: NEXT X
  17. 120  VTAB 23: HTAB (14): PRINT " PRESS A KEY "
  18. 130 KD =  PEEK( -16384)
  19. 140  IF KD <128  THEN 130
  20. 150  POKE  -16368,0
  21. 155  VTAB 20
  22. 160  PRINT "<CTRL-D>RUN MENU"